## Example

library(plotly)
## Lade nötiges Paket: ggplot2
## 
## Attache Paket: 'plotly'
## Das folgende Objekt ist maskiert 'package:ggplot2':
## 
##     last_plot
## Das folgende Objekt ist maskiert 'package:stats':
## 
##     filter
## Das folgende Objekt ist maskiert 'package:graphics':
## 
##     layout
#htmltools::tagList(plot_ly(x =0, type = "histogram"))
shp = KRMr::Imagej2shp(shp=read.csv("C:/Users/gastauer/Documents/Projekte/wur/acosize_ts/data/xrays/shapes/SaithSounded/Saithe01.csv"))
## Warning: vorhergehender Import 'ggplot2::last_plot' durch 'plotly::last_plot'
## während des Ladens von 'KRMr' ersetzt
## Warning: vorhergehender Import 'DT::dataTableOutput' durch
## 'shiny::dataTableOutput' während des Ladens von 'KRMr' ersetzt
## Warning: vorhergehender Import 'DT::renderDataTable' durch
## 'shiny::renderDataTable' während des Ladens von 'KRMr' ersetzt
## Warning: attribute variables are assumed to be spatially constant throughout
## all geometries

## Warning: attribute variables are assumed to be spatially constant throughout
## all geometries

## Warning: attribute variables are assumed to be spatially constant throughout
## all geometries

## Warning: attribute variables are assumed to be spatially constant throughout
## all geometries
  cat("\n\n")
htmltools::tagList(KRMr::get_shp3d(shp))
## 2023-02-25 16:42:49:2 Body parts detected
  cat("\n\n")
for (i in 1:1) {
  
  #cat(summary(mtcars[,i]) %>% pander::pander())
 
  cat("\n\n")
  
  shp = KRMr::Imagej2shp(shp=read.csv("C:/Users/gastauer/Documents/Projekte/wur/acosize_ts/data/xrays/shapes/SaithSounded/Saithe01.csv"))
  
  cat("\n\n")
  
  print(htmltools::tagList(KRMr::get_shp3d(shp)))
    
  cat("\n\n")
}
## Warning: attribute variables are assumed to be spatially constant throughout
## all geometries

## Warning: attribute variables are assumed to be spatially constant throughout
## all geometries

## Warning: attribute variables are assumed to be spatially constant throughout
## all geometries

## Warning: attribute variables are assumed to be spatially constant throughout
## all geometries
## 2023-02-25 16:42:53:2 Body parts detected